﻿Public Class Profesor

    Dim ocdProfesor As New Datos.Profesor()

    Public Sub RegistrarProfesor(ByVal paramDni As String, ByVal paramNombre As String, ByVal paramFechaNac As String, ByVal paramEmail As String, ByVal paramDomicilio As String, ByVal paramEstadoCivil As String)
        ocdProfesor.RegistrarProfesor(paramNombre, paramDni, paramFechaNac, paramEmail, paramDomicilio, paramEstadoCivil)
    End Sub

    Public Function BuscarProfesor(ByVal paramDni) As DataSet
        Dim ds As New DataSet()
        ds = ocdProfesor.BuscarProfesor(paramDni)
        Return ds
    End Function

    Public Sub ModificarProfesor(ByVal paramNombre As String, ByVal paramDni As String, ByVal paramFechaNac As String, ByVal paramEmail As String, ByVal paramDomicilio As String, ByVal paramEstadoCivil As String)
        ocdProfesor.ModificarProfesor(paramDni, paramNombre, paramFechaNac, paramEmail, paramDomicilio, paramEstadoCivil)
    End Sub

    'Public Sub EliminarProfesor(ByVal paramDni As String)
    '    ocdProfesor.EliminarProfesor(paramDni)
    'End Sub

    Public Function obtenerProfesores() As DataSet
        Dim ds As New DataSet()
        ds = ocdProfesor.obtenerProfesores()
        Return ds
    End Function

    Public Sub EliminarProfesorNota(ByVal paramNroExpediente As String, ByVal paramDni As String)
        ocdProfesor.EliminarProfesorNota(paramNroExpediente, paramDni)
    End Sub

End Class
